AutoCAD図面内での検索.bas

Sub find()
　'Excelのアクティブセルの文字列をAutoCADの図面内で検索し、該当箇所へジャンプします。
　'文字列の中に空白が入る場合は使用できません。
　　Dim dat As String
　　dat = ActiveCell.Value
　　AppActivate "AutoCAD", True
　　SendKeys "find" & "{ENTER}", True
　　SendKeys dat & "%F" & "%Z" & "{ESC}", True
　　SendKeys "{ZOOM}" & "0.5X" & "{ENTER}", True
End Sub

A列の空白セルを削除.bas

Sub A列の空白セルを削除()
　Dim cen2 As Integer
　Dim ichi As String
　Dim cend As String
　Dim naka As Variant
　ichi = ActiveCell.Address
　Cells(15000, 1).Select
　Selection.End(xlUp).Select
　cend = Mid(ActiveCell.Address, 4)
　cen2 = ActiveCell.Row
　Range(ichi).Select
　Dim Check, Counter
　Check = True: Counter = 0
　naka = ActiveCell.Value
　Do While Counter < cen2
　Counter = Counter + 1
　If ActiveCell.Value = "" Or ActiveCell.Value = " " Or ActiveCell.Value = "　" Then
　　Selection.Delete Shift:=xlUp
　Else
　　　SendKeys "{down}", True
　　End If
　　　Loop
End Sub

シート名記入.bas

Sub シート名記入()
'アクティブセルの文字列をシート名として記入します。
　Dim neiyo As String
　naiyo = ActiveCell.Value
　ActiveSheet.Name = naiyo
End Sub

シート名取得.bas

Sub シート名取得()
'アクティブセルの文字列をシート名として記入します。
　ichi = ActiveCell.Address
　Title = ActiveSheet.Name
　Range(ichi) = Title
End Sub

上下左右へのデータ移動

Sub 上へ()
　I = ActiveCell.Value
　ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
　ActiveCell.Offset(-1, 0).Value = I
　ActiveCell.Offset(-1, 0).Select
End Sub

Sub 下へ()
　I = ActiveCell.Value
　ActiveCell.Value = ActiveCell.Offset(1, 0).Value
　ActiveCell.Offset(1, 0).Value = I
　ActiveCell.Offset(1, 0).Select
End Sub

Sub 左へ()
　I = ActiveCell.Value
　ActiveCell.Value = ActiveCell.Offset(0, -1).Value
　ActiveCell.Offset(0, -1).Value = I
　ActiveCell.Offset(0, -1).Select
End Sub

ub 右へ()
　I = ActiveCell.Value
　ActiveCell.Value = ActiveCell.Offset(0, 1).Value
　ActiveCell.Offset(0, 1).Value = I
　ActiveCell.Offset(0, 1).Select
End Sub

ダウンロードのページへ戻る

Home